10 REM STAR WARS 64 12 : 14 REM REV 04.2 - 840513 16 : 17 REM ADAPTED FOR C-64 18 REM BY 20 REM JAMES R. PRING 26 : 27 REM THIS IS PUBLIC DOMAIN SOFTWARE AND IS NOT TO BE SOLD. 29 : 30 PRINT"[147][144]";:REM CLS & SELECT BLACK 40 POKE53281,0:REM SCREEN COLOR 50 POKE53280,0:REM BORDER COLOR 60 PRINTCHR$(142);:REM UPPER CASE 70 PRINTCHR$(8);:REM DISABLE SHIFT'C' 99 : 100 GOTO8600 110 PRINT"[147]" 120 IFL<4THENPRINTTAB(11)"<<- [211][212][193][210][160][215][193][210][211] ->>":GOTO140 130 PRINT" <<- [211][212][193][210][160][215][193][210][211][160]* [215][201][212][200][160][196][197][193][212][200][160][211][212][193][210] ->> 140 [150][165]A(X)[178][181]([187](0)[172]X)[170]1 150 LC$[178]" ON" 160 LL$[178]"" 180 [143] ** INITIALIZE ** 190 [153]"(null)RE-FLIGHT INSPECTION BEING PERFORMED. 200 K1=FNA(K3)+K4:D3=FNA(11)+D4:S1=FNA(S4)+S4 210 B1=FNA(B2):IFL=1ANDB1<3THEN210 220 IFL=2ANDB1<2THEN210 340 D1=INT((FNA(1999)+2000)/10)*10 350 D2=D3+D1 360 REM ** COMPUTE GALAXY ** 365 REM * ASSIGN STARS * 370 FORI=1TOS1 390 A1=FNA(8):A2=FNA(8) 400 IFS(A1,A2)=S6THENGOSUB5720 410 S(A1,A2)=S(A1,A2)+1:NEXTI 420 PRINT"[215]EAPONS BEING ON-LOADED. 430 [129]X[178]1[164]2000:[130] 440 [143] * ASSIGN BASES * 460 [129]I[178]1[164]B1 470 A1[178][165]A(8):A2[178][165]A(8) 490 [139]S(A1,A2)[177][178]10[167]510 500 S(A1,A2)[178]S(A1,A2)[170]10 510 [130]I 515 [143] * ASSIGN ENEMY * 517 X3[178]1 520 [129]I[178]1[164]K1 530 A1[178][165]A(8):A2[178][165]A(8) 540 [139]S(A1,A2)[177][178]K2[172]100[167][141]5720 550 S(A1,A2)[178]S(A1,A2)[170]100:[130]I 560 [139]L[179]4[167]610 565 [143] * ASSIGN DEATH STAR * 570 [129]I[178]1[164]D5 580 A1[178][165]A(8):A2[178][165]A(8) 600 S(A1,A2)[178]S(A1,A2)[170].1:[130]I 610 [143] ** INITIALIZE QUADRANT/SECTOR 620 E1[178][165]A(8):E2[178][165]A(8):E7[178][165]A(8):E8[178][165]A(8):P[178]3000 640 T1[178]20:[153]"ATNUTOMATIC SYSTEMS CHECK IN PROGRESS. 660 FORX=1TO3000:NEXT 670 PRINT"[193]LL SYSTEMS GO -- STAND BY FOR ORDERS. 680 [129]X[178]1[164]2000:[130] 700 [153]"LOAD ***** (null)(null)STR$VAL(null)(null): (null)TARDATE"D1" *****" 705 [153]" (null)OU ARE THE PILOT OF AN (null)-WING 710 PRINT"FIGHTER. [217]OUR MISSION IS TO RID THE 715 [153]"GALAXY OF STR$ARTH (null)ADER AND HIS RIGHT$MPERIAL 720 PRINT"TASK FORCE OF"K1"[212][201][197]-[198][201][199][200][212][197][210][211]. "; 725 IFL<4THEN770 730 PRINT"[217]OU 733 [153]"MUST ALSO DESTROY HIS STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) BATTLE 735 PRINT"STATION. [217]OU HAVE UNTIL STARDATE"D2 740 PRINT"TO COMPLETE YOUR MISSION. 745 [153]" (null)HERE IS ONE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) AND YOU MUST 750 PRINT"DESTROY IT WITH A TORPEDO BEFORE YOU 755 [153]"CAN WIN THE GAME. (null)HE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) WILL 760 PRINT"[206][207][212] SHOW UP ON LONG RANGE SENSOR SCANS 765 [153]"OR INTELLIGENCE REPORTS HOWEVER.":[137]780 770 [153]"(null)OU 773 PRINT"HAVE UNTIL STARDATE"D2"TO COMPLETE 775 [153]"YOUR MISSION. 780 PRINT" [217]OU HAVE AT LEAST ONE SUPPORTING 785 [153]"(null)(null)ATN(null)PEEKATN(null)VAL. (null)HEN YOUR FIGHTER DOCKS AT 790 PRINT"ONE (IS POSITIONED NEXT TO ONE) IT IS 795 [153]"REPAIRED AND RESUPPLIED WITH FUEL AND 800 PRINT"TORPEDOES. [217]OUR FIGHTER IS CURRENTLY 805 [153]"IN (null)(null)ATNSTR$(null)ATN(null)(null)"E1"CMD";[171]E2"CMD, (null)VALLEN(null)(null)(null)"E7"CMD";[171]E8"CMD." 810 [153]" (null)AY THE ASC(null)(null)LENVAL BE WITH YOU. 820 PRINT" [208]RESS [211][208][193][195][197][160][194][193][210] FOR [204][193][213][206][195][200].[145]":GOSUB9030 830 GOSUB9210 840 POKES+24,15+16+32:POKES+23,1+16*5 850 POKES+5,0 860 POKES+6,16*15+15 870 POKES+4,129 880 POKES+1,11 890 PI=100 900 POKES+22,PI:POKES+23,1OR(16-PI/16)*16 910 PI=PI+PI/200:IFPI<200THEN900 920 POKES+4,128 940 : 945 REM *** MAIN CONTROL PROGRAM *** 950 : 955 REM ** SET-UP ** 960 GOSUB2010:PRINT"[147]"CHR$(142):GOSUB3090 975 GOSUB1310 980 POKE53281,1:REM SCREEN ON 995 REM ** COMMAND CONTROL ** 1000 PRINT""TAB(27)"COMMAND ";:GOSUB9900:IFVAL(A$)>0THEN1010 1005 IFA$=CHR$(133)THENPRINT"[147]";:GOSUB1310 1006 IFA$="H"THEN1900 1007 IFA$="Q"THENGOSUB9100:GOSUB9210:PRINTCHR$(9)TAB(12)"HAVE A NICE DAY.":END 1008 GOSUB9100 1010 C2=VAL(A$) 1020 IFC9=7AND(C2=1ORC2=4)THENPRINT"";:GOSUB9100:PRINT"":GOTO1090 1030 GOSUB9100 1090 C9=C2:ONC2GOTO2640,2390,4270,4860,1220,5550,5880 1100 C9=C2:PRINT"YOUR CHOICES OF COMMAND ARE: 1110 [153][163]5)"1 - FLIGHT CONTROL 1120 PRINTTAB(5)"2 - LONG RANGE SENSOR SCAN 1130 [153][163]5)"3 - FIRE PHASERS 1140 PRINTTAB(5)"4 - FIRE PHOTON TORPEDOES 1150 [153][163]5)"5 - DAMAGE CONTROL REPORT 1160 PRINTTAB(5)"6 - INTELLIGENCE REPORT 1170 [153][163]5)"7 - R2-D2, NAVIGATIONAL ROBOT 1175 IFA$="H"THENPRINT:RETURN 1180 PRINTTAB(5)"H[146] - HELP 1190 [153][163]5)"QWAIT - QUIT 1200 GOTO1000 1220 REM ** DAMAGE CONTROL ** 1225 IFR(6)<0THENPRINT"*** DAMAGE CONTROL IS NOT AVAILABLE ***":GOTO1000 1230 PRINTTAB(9)"DAMAGE CONTROL REPORT 1240 [153]" DEVICE"[166]10)"STATE OF REPAIR 1250 FORC2=1TO8:PRINTTAB(3);:GOSUB3880 1260 IFR(C2)<0THENPRINTTAB(23)INT(R(C2)*10)/10" STARDAYS 1270 [139]R(C2)[177][178]0[167][153][163]24)"0 STARDAYS 1280 NEXTC2:GOTO1000 1310 REM ** S.R. SENSOR SCAN ** 1320 PRINT""TAB(24)"MISSION"L"STATUS":GOSUB9160 1340 IFR(2)<0THENPRINTLL$;LC$TAB(6)"*** S.R. SENSORS ARE OUT ***":GOTO1590 1370 GOSUB2010:PRINT""; 1380 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]" 1410 FORI=1TO8:FORJ=1TO8:PRINT""; 1420 OND(I,J)GOTO1460,1480,1500,1520,1540 1440 PRINT" : ";:GOTO1560: VOID 1460 PRINT" * ";:GOTO1560: STAR 1480 PRINT"[171][215][179]";:GOTO1560: TIE-FIGHTER 1500 PRINT"[215][219][215]";:GOTO1560: STARBASE 1520 PRINT">[218]<";:GOTO1560: X-WING 1540 PRINT"[202][209][201]"; :REM DEATHSTAR 1560 NEXTJ:PRINTSPC(3)"[146][144]"; 1580 ONIGOTO1600,1620,1740,1760,1780,1800,1820,1840 1590 IFR(2)<0THENFORX=0TO7:PRINTTAB(27);:ONXGOTO1620,1740,1760,1780,1800,1820,1840 1600 PRINT"DATE:"D1:GOTO1860 1620 PRINT"COND: [157][157][157][157][157][157][157]"; 1640 ONC1GOTO1680,1700,1720 1660 PRINT" GREEN[144]":GOTO1860 1680 PRINT" [158]YELLOW[144]":GOTO1860 1700 PRINT"  RED [144]":GOTO1860 1720 PRINT" [153]DOCKED[144]":GOTO1860 1740 PRINT"QUAD:"E1"[157]";-E2:GOTO1860 1760 PRINT"SECT:"E7"[157]";-E8:GOTO1860 1780 PRINT"FUEL: [157][157][157][157][157]"INT(P):GOTO1860 1800 PRINT"TORP: [157][157][157]"T1:GOTO1860 1820 PRINT"ENMY: [157][157][157][157]"K1:GOTO1860 1840 PRINT"DAYS: [157][157][157][157]"D2-D1 1860 IFR(2)<0THENNEXT X:RETURN 1870 NEXT I 1880 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146][144]";:RETURN 1900 REM ** HELP MENU ** 1910 GOSUB9100:PRINT"C3-PO HERE, HOW MAY I HELP YOU SIR?":GOSUB1110 1920 PRINTTAB(5)"8 - COMPLETE INSTRUCTIONS 1930 [161]A$:[139]A$[178]""[167]1930 1940 [139][197](A$)[179]1[176][197](A$)[177]8[167]1930 1945 [139]A$[178]"8"[167]10000 1950 [153][199](14):[145][197](A$)[141]11100,11700,12000,12300,12600,12900,13200 1960 [139][197](A$)[178]1[167][141]9000:[141]11400 1970 [141]9000:[153]"LOAD"[199](142);:[141]1310:[141]9100:[137]1100 2010 [143] ** COMPUTE SECTOR LAYOUT ** 2020 [139]L1[179][177]E1[176]L2[179][177]E2[167]2050 2030 [139]X2[178]1[167]2070 2040 [142] 2050 L1[178]E1:L2[178]E2 2070 [129]I[178]1[164]8:[129]J[178]1[164]8 2080 [139]X2[178]0[167]D(I,J)[178]0:J(I,J)[178]0 2090 [139]X2[178]1[175]D(I,J)[178]2[167]D(I,J)[178]0 2100 [130] J,I 2110 [139]X2[178]1[167]2300 2120 D([181](E7[170].5),[181](E8[170].5))[178]4 2124 [143] * STARS * 2126 [139]S(E1,E2)[171][181](S(E1,E2)[173]10)[172]10[179]1[167]2180 2130 [129]I[178]1[164][181](S(E1,E2)[171][181](S(E1,E2)[173]10)[172]10) 2140 E3[178][165]A(8):E4[178][165]A(8) 2160 [139]D(E3,E4)[179][177]0[167]2140 2170 D(E3,E4)[178]1:[130] I 2180 [143] * DEATHSTAR * 2190 [129]I[178]1[164]D5 2200 E3[178][165]A(8):E4[178][165]A(8) 2220 [139]D(E3,E4)[179][177]0[167]2200 2230 [139]S(E1,E2)[179][177][181](S(E1,E2))[167]D(E3,E4)[178]5 2240 [130] I 2245 [143] * BASES * 2247 [139]S(E1,E2)[173]10[171][181](S(E1,E2)[173]100)[172]10[179]1[167]2300 2250 [129]I[178]1[164][181](S(E1,E2)[173]10[171][181](S(E1,E2)[173]100)[172]10) 2260 E3[178][165]A(8):E4[178][165]A(8):[139]D(E3,E4)[179][177]0[167]2260 2290 D(E3,E4)[178]3:[130] I 2300 [143] * ENEMY * 2310 [139]S(E1,E2)[173]100[179]1[167]2380 2320 [129]I[178]1[164][181](S(E1,E2)[173]100) 2330 E3[178][165]A(8):E4[178][165]A(8):[139]D(E3,E4)[179][177]0[167]2330 2360 D(E3,E4)[178]2:J(E3,E4)[178]P(I):[139]X2[178]0[167]J(E3,E4)[178]300:P(I)[178]300 2370 [130] I 2380 X2[178]0:[142] 2390 [143] ** L.R. SENSOR SCAN ** 2400 [139]R(3)[179]0[167][153][163]6)"*** L.R. SENSORS ARE OUT ***":[137]1000 2420 [153]"LONG RANGE SENSOR SCAN FOR QUADRANT"E1"CMD";[171]E2"" 2440 [153][163]11)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 2460 [129]I[178]E1[171]1[164]E1[170]1:[153][163]11); 2470 [129]J[178]E2[171]1[164]E2[170]1:[139]I[179]1[176]I[177]8[167]2610 2490 [139]J[179]1[176]J[177]8[167]2590 2495 [139]I[178]E1[175]J[178]E2[167][153]">(null)< ";:[137]2530 2500 [139]S(I,J)[179]10[167]2600 2510 [139]S(I,J)[179]100[167]2630 2520 [153][202]([196]([181](S(I,J))),2)[166]4); 2530 Q(I,J)[178]1 2540 [130] J:[153] 2560 [153][163]11)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[130] I:[137]1000 2590 [153]" ? ";:[137]2540 2600 [153]"00"[202]([196]([181](S(I,J))),2)[166]4);:[137]2530 2610 [153]" ? ? ?":[137]2560 2630 [153]"0"[202]([196]([181](S(I,J))),2)[166]4);:[137]2530 2640 [143] ** FLIGHT CONTROL ** 2641 P9[178]0:[139]R(1)[179]0[167]2665 2642 [153]"DO YOU WANT AUTOMATIC FLIGHT CONTROL? 2643 PRINT" *** INTER-QUADRANT FLIGHT ONLY ***[145][145]";:GOSUB9900:IFA$="N"THEN2660 2644 IFA$=CHR$(133)THEN1000 2645 IFA$<>"Y"THENPRINTLL$;:GOTO2640 2646 PRINTLL$;:GOSUB9100:PRINT"ENTER DESTINATION COORDINATES";:INPUTZ9%,Z3% 2648 IFZ9%<1ORZ9%>8ORZ3%<1ORZ3%>8THEN2646 2649 PRINT"[145]"LC$"STANDBY FOR JUMP TO HYPERSPACE!":FORT=1TO2000:NEXT:POKE53281,0 2650 Z1=E1-Z9%:Z2=E2-Z3%:C3=SQR(Z1^2+Z2^2):E1=Z9%:E2=Z3%:P=P-(SQR(C3)+C3)*50 2653 IFP<=0THEN6780 2657 PRINTLL$;LC$:GOSUB9150:PRINTLEFT$(LL$,11);:GOSUB2010:GOTO2980 2660 PRINT"[145][145]";:GOSUB9100 2665 PRINT"COURSE DEGREES.[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO4940 2670 PRINTTAB(12)"[145] WARP FACTOR (0-8) [157][157]";:INPUTC3:IFC3<0ORC3>8THEN2670 2680 PRINTLL$;:GOSUB9100:PRINT"[145]"; 2720 IFR(1)>=0ORC3<=.5THEN2760 2740 PRINT" *** WARP ENGINES ARE DAMAGED 2750 [153][163]14)"MAXIMUM WARP IS .5 ***":[137]1000 2760 P[178]P[171]([186](C3)[170]C3)[172]20:[139]P[179][178]0[167]6780 2790 N2[178][171][190](C2[172][255][173]180)[173]2:[139]N2[179]0[167]N2[178]N2[171].001 2800 [139][182](N2)[179].01[167]N2[178]0 2820 N3[178][191](C2[172][255][173]180)[173]2:[139]N3[179]0[167]N3[178]N3[171].001 2840 [139][182](N3)[179].01[167]N3[178]0 2850 N1[178]16[172]C3[172](2[172]([182](N2)[170][182](N3))):[139]N1[179]1[167]2980 2860 [129]A1[178]1[164]N1 2870 E3[178]E7:E4[178]E8:P1[178]E3[170]N2:P2[178]E4[170]N3:X[178][181](P1[170].5):Y[178][181](P2[170].5) 2880 [139](E1[178]1[175]P1[179].5)[176](E2[178]1[175]P2[179].5)[167]3081 2890 [139](E1[178]8[175]P1[177][178]8.5)[176](E2[178]8[175]P2[177][178]8.5)[167]3081 2910 [139]P1[179].5[176]P1[177][178]8.5[167]3580 2920 [139]P2[179].5[176]P2[177][178]8.5[167]3670 2930 [139]D(X,Y)[179][177]0[175]D(X,Y)[179][177]4[167]3760 2950 D([181](E3[170].5),[181](E4[170].5))[178]0:D(X,Y)[178]4:E7[178]P1:E8[178]P2 2970 [130] A1 2980 [139]L[177]2[167]X2[178]1:[141]2010 2990 D1[178]D1[170]1:[139]D1[177]D2[167]6780 3000 E7[178][181](E7[170].5):E8[178][181](E8[170].5) 3010 [143] * FIX-UP * 3020 [129]I[178]1[164]8:[139]R(I)[178]0[167]3070 3040 R(I)[178]R(I)[170]1:[139]R(I)[179]0[167]3070 3060 R(I)[178]0 3070 [130] I 3075 [141]3090:[141]4040:[141]3340:[139]C1[178]3[167][141]3270 3080 [137]975 3081 [143] * SHUT DOWN WARP DRIVE * 3082 A1[178]N1:[139]P1[179]1[167]P1[178]1 3083 [139]P2[179]1[167]P2[178]1 3084 [139]P1[177]8[167]P1[178]8 3085 [139]P2[177]8[167]P2[178]8 3086 [153]"WARP ENGINES SHUT DOWN AT SECTOR"[181](P1[170].5)"CMD";[171][181](P2[170].5) 3087 [153]"OF QUADRANT"E1"CMD";[171]E2"CMD. YOU CANNOT LEAVE THE 3088 PRINT"GALAXY. YOU ARE ONLY WASTING FUEL. 3089 X[178][181](P1[170].5):Y[178][181](P2[170].5):[137]2930 3090 [143] ** SCAN FOR DOCKED STARSHIP ** 3100 [129]I[178]E7[171]1[164]E7[170]1:[139]I[179]1[176]I[177]8[167]3180 3130 [129]J[178]E8[171]1[164]E8[170]1:[139]J[179]1[176]J[177]8[167]3170 3160 [139]D(I,J)[178]3[167]3260 3170 [130] J 3180 [130] I 3200 C1[178]0:[139]S(E1,E2)[179]100[167]3230 3210 C1[178]2:[137]3330 3230 [139]P[177]600[167]3330 3250 C1[178]1:[137]3330 3260 C1[178]3 3270 P[178]3000:T1[178]20:P9[178]0 3300 [129]I[178]1[164]8:R(I)[178]0:[130] 3330 [139](S(E1,E2)[171][181](S(E1,E2)))[172]10[177]0[167]C1[178]2 3335 [142] 3340 [143] **CHECK FOR SPACE STORM/TRUCE 3350 C2[178][187](0):[139]C2[179].35[167]3460 3370 [139]C2[179].95[167]3570 3380 [153][163]10)"*** SPACE STORM ***":[139]C1[179]3[167]3420 3400 [153]"STARBASE SHIELDS PROTECT YOUR FIGHTER":[142] 3410 [143] ** BREAK SOMETHING! ** 3420 C2[178][165]A(8):[141]3880:[153]" DAMAGED *** 3440 R(C2)=R(C2)-5*RND(0):GOTO3570 3460 FORC2=1TO8:IFR(C2)<0THEN3500 3480 NEXT C2:GOTO3570 3500 PRINT"*** TRUCE: ";:GOSUB3880:PRINT" - 3530 [153][163]9)"- STATE OF REPAIR IMPROVED *** 3540 R(C2)=R(C2)+2*RND(0):IFR(C2)<0THEN3570 3560 R(C2)=0 3570 RETURN 3580 REM ** CHANGE QUADRANT (VERT) ** 3600 S2=SGN(P1-1):S3=E1+S2:E7=INT(P1*100)/100-(8*S2):L1=0 3620 IFS3<1ORS3>8THEN3645 3640 E1=S3 3645 E8=INT(P2+.5):IFP2<.5THEN3670 3660 IFP2<8.5THEN3738 3670 REM ** CHANGE QUADRANT (HORIZ) ** 3690 S2=SGN(P2-1):S3=E2+S2:E8=INT(P2*100)/100-(8*S2):L2=0 3710 IFS3<1ORS3>8THEN3735 3730 E2=S3 3735 IFL1<>0THENE7=INT(P1+.5) 3738 IFL>4THEN3750 3740 IFS(E1,E2)=INT(S(E1,E2))THEN3750 3742 REM ** DEATH STAR WARNING ** 3744 PRINTLL$:GOSUB9100:PRINTTAB(14)"EMERGENCY!! 3746 [153][163]7)"DEATH STAR IN QUADRANT"E1"CMD";[171]E2 3750 [141]2010:[137]2970 3760 [153]"YOUR FIGHTER BLOCKED IN QUADRANT"E1"CMD";[171]E2 3770 [153]"AT SECTOR"[181](P1[170].5)"CMD";[171][181](P2[170].5):[137]2990 3880 [145]C2[171]1[137]3890,3900,3910,3920,3930,3940,3950 3885 [153]"WARP ENGINES";:[142] 3890 [153]"S.R. SENSORS";:[142] 3900 [153]"L.R. SENSORS";:[142] 3910 [153]"PHASER CONTROLS";:[142] 3920 [153]"PHOTON TUBES";:[142] 3930 [153]"DAMAGE CONTROL";:[142] 3940 [153]"COMMUNICTAIONS";:[142] 3950 [153]"R2-D2";:[142] 4040 [143] ** ENEMY CHECK & X-WING ZAP ** 4045 [139]S(E1,E2)[179]100[167][142] 4050 [153]:G[178]1:H[178]0 4070 [129]I[178]1[164]S(E1,E2)[173]100 4080 H[178]H[170]1:[139]H[179]9[167]4120 4100 H[178]1:G[178]G[170]1 4120 [139]D(G,H)[179][177]2[167]4080 4140 Q1[178]G[171]E7:Q2[178]H[171]E8:D4[178][186](Q1[174]2[170]Q2[174]2):P5[178][187](0)[172]J(G,H) 4170 J(G,H)[178]J(G,H)[171]P5:[139]C1[178]3[167][141]3400 4180 P6[178]P5[173]D4:[139]C1[178]3[167]4220 4190 P[178]P[171]P6:[139]P[179][178]0[175]C1[179][177]3[167]6780 4200 [153]"YOUR FIGHTER HIT"[181](P6[172]1000)[173]1000"UNITS. 4210 PRINT"TIE-FIGHTER AT SECTOR"G"[157]";-H"[157]. 4220 [130] I 4240 [142] 4270 [143] ** PHASER CONTROL ** 4280 [139]R(4)[177][178]0[175]S(E1,E2)[177][178]100[167]4310 4290 [139]R(4)[179]0[167][153][163]8)"*** PHASERS ARE OUT *** 4295 IFS(E1,E2)<100THENPRINT"JUST WHAT THE HECK ARE YOU SHOOTING AT? 4300 [137]1000 4310 [153][163]5)"<< PHASERS LOCKED ON TARGET >> 4320 PRINT"ENERGY AVAILABLE ="INT(P)"UNITS. 4330 [133]"FIRE UNITS.CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";C$:C2[178][197](C$) 4350 [139]C2[179][178]0[176]C2[177]P[167][153]LL$"";:[137]4320 4355 [141]9210:[151]S[170]24,15:[151]S[170]6,240:[151]S[170]4,17 4360 [129]A[178]1[164]10:[129]X[178]1[164]255[169]25 4365 [151]S[170]1,X:[130] X,A:[151]S[170]4,32 4370 P9[178]P9[170]1:[139]P9[177]1[175][187](0)[177].9[167]4390 4380 [137]4420 4390 A1[178][165]A(300)[170]100:[139]A1[179]C2[167]4420 4400 C2[178]A1:[153]"<<< PHASERS MOMENTARILY OVERLOADED 4410 PRINT" "C2"UNITS INADVERTENTLY FIRED >>> 4420 P[178]P[171]C2:[141]4040:P5[178]C2[173]([181](S(E1,E2)[173]100)) 4430 [129]G[178]1[164]8:[129]H[178]1[164]8:[139]D(G,H)[178]2[167]4520 4460 [130] H,G:[137]4720 4520 Q1[178]G[171]E7:Q2[178]H[171]E8:D4[178][186](Q1[174]2[170]Q2[174]2):P6[178]P5[173]D4 4570 J(G,H)[178]J(G,H)[171]P6:[139]J(G,H)[179][178]0[167]4650 4580 [153]"TIE-FIGHTER AT"G"CMD";[171]H"HIT"[181](P6[172]1000)[173]1000"UNITS. 4600 PRINT"LEFT ="J(G,H)"UNITS.":GOTO4460 4650 PRINTTAB(5)"*** TIE-FIGHTER DESTROYED *** 4700 S(E1,E2)[178]S(E1,E2)[171]100:K1[178]K1[171]1:D(G,H)[178]0:[137]4460 4720 I[178]1:[129]G[178]1[164]8:[129]H[178]1[164]8:[139]J(G,H)[177]0[167]P(I)[178]J(G,H):I[178]I[170]1 4730 [139]I[177]S(E1,E2)[173]100[167]4740 4732 [130] H,G 4740 [139]K1[179][178]0[175]D5[179][178]0[167]6700 4760 [139]C9[179][177]3[167][141]4040 4770 [141]3090:[137]975 4860 [143] ** TORPEDO CONTROL ** 4870 [139]R(5)[177][178]0[175]T1[177]0[167]4930 4880 [139]R(5)[179]0[167][153][163]6)"*** PHOTON TUBES ARE OUT *** 4910 IFT1=0THENPRINT"TORPEDO SUPPLY EXHAUSTED!! 4920 [137]1000 4930 [153]"TORPEDO COURSE DEGREES.CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 4940 [133]C$:[139][200](C$,1)[178]"D"[167][153]:[153]"ONON";:[137]4930 4945 C2[178][197](C$):[137]7800 4950 [153]:T1[178]T1[171]1:N2[178][171][190](C2[172][255][173]180)[173]4:[139]N2[179]0[167]N2[178]N2[171].001 4960 [139][182](N2)[179].01[167]N2[178]0 5000 N3[178][191](C2[172][255][173]180)[173]4:[139]N3[179]0[167]N3[178]N3[171].001 5010 [139][182](N3)[179].01[167]N3[178]0 5040 P1[178][181](E7):P2[178][181](E8) 5050 P1[178]P1[170]N2:P2[178]P2[170]N3:X[178][181](P1[170].5):Y[178][181](P2[170].5):[139]P1[179].5[176]P1[177]8.5[167]5470 5100 [139]P2[179].5[176]P2[177]8.5[167]5470 5120 [139]D(X,Y)[178]0[176]D(X,Y)[178]4[167]5050 5130 [139]D(X,Y)[177]1[167]5170 5140 [153][163]10)"<< STAR DESTROYED >> 5150 S(E1,E2)=S(E1,E2)-1:GOTO5410 5170 IFD(X,Y)=5THEN5490 5180 IFD(X,Y)>2THEN5280 5230 PRINTTAB(5)"*** TIE-FIGHTER DESTROYED! *** 5240 S(E1,E2)[178]S(E1,E2)[171]100:K1[178]K1[171]1:D(X,Y)[178]0:J(X,Y)[178]0:[137]4720 5280 [153][163]6)"*** STARBASE DESTROYED!! *** 5300 FORT=1TO2000:NEXT:B1=B1-1:PRINT"":IFB1>0THEN5360 5330 PRINT"[147]"CHR$(14)" [212]HAT DOES IT, [195]APTAIN!! [217]OU ARE 5335 [153]"HEREBY RELIEVED OF COMMAND AND SENTENCED"; 5340 [153]"TO 99 PARSECS AT HARD LABOR ON LENYGNUS 7!":[137]6810 5360 [153]"STARFLEET COMMAND IS REVIEWING YOUR 5370 PRINT"RECORD TO CONSIDER COURT MARTIAL! 5400 S(E1,E2)[178]S(E1,E2)[171]10 5410 D(X,Y)[178]0:[137]4740 5470 [153]"TORPEDO MISSED (LOUSY SHOT!)":[137]4740 5490 [153][163]5)"<<< DEATH STAR DESTROYED! >>> 5500 D5=D5-1:S(E1,E2)=INT(S(E1,E2)):GOTO5410 5550 REM ** SMART REPORT ** 5552 IFR(7)>=0THEN5560 5556 PRINTTAB(5)"*** COMMUNICATIONS ARE OUT ***":GOTO1000 5560 PRINT"[147]INTELLIGENCE REPORT: STARDATE"D1"" 5580 FORI=1TO8:FORJ=1TO8 5590 IFI=E1ANDJ=E2THEN5660 5600 IFQ(I,J)=0THEN5640 5610 IFS(I,J)>99THENPRINT" "MID$(STR$(INT(S(I,J))),2)" ";:GOTO5670 5620 IFS(I,J)<10THENPRINT" 00"MID$(STR$(INT(S(I,J))),2)" ";:GOTO5670 5630 PRINT" 0"MID$(STR$(INT(S(I,J))),2)" ";:GOTO5670 5640 PRINT" ? ";:GOTO5670 5660 PRINT" >[218]< "; 5670 NEXT J:PRINT:NEXT I 5700 GOSUB9000:PRINT"[147]";:GOSUB1310:GOTO1000 5720 REM ** ASSIGN ALL STARS & ENEMY * 5740 FORA1=FNA(8)TO8:FORA2=FNA(8)TO8 5760 IFX3=0ANDS(A1,A2)=0THEN5900 5884 PRINT" *** R2-D2 IS UNAVAILABLE -- PUNT ***":GOTO1000 5900 Z1=0:Z2=0:Z3=0:Z4=0:Z5=0:Z6=0:Z7=0:Z8=0:Z9=0 5910 PRINT"R2-D2 AT YOUR SERVICE, SIR. 5915 [153]"1. INTER-QUADRANT":[153][163]10)"OR":[153]"2. INTRA-QUADRANT ON"; 5920 [141]9900:[139]A$[178][199](133)[167]1000 5923 [153]:[145][197](A$)[137]5930,5935 5925 [153]LL$"";:[137]5915 5930 [133]"ENTER COORDINATES OF DESTINATION";Z9%,Z3%:[137]5940 5935 [133]"ENTER COORDINATES OF TARGET";Z9%,Z3% 5940 [139]Z9%[179]1[176]Z9%[177]8[176]Z3%[179]1[176]Z3%[177]8[167]5920 5950 [139][197](A$)[178]1[167]Z1[178]E1[171]Z9%:Z2[178]E2[171]Z3%:[137]5970 5960 Z1[178]E7[171]Z9%:Z2[178]E8[171]Z3% 5970 Z7[178][182](Z1):Z5[178][182](Z2):[139]Z5[179][177]0[176]Z7[179][177]0[167]6000 5990 [153]"THAT'S YOUR POSITION, STUPID!":[137]5920 6000 [139]Z1[177][178]0[175]Z2[179]0[167]6120 6010 [139]Z1[179]0[175]Z2[179]0[167]6210 6020 [139]Z1[179]0[175]Z2[177][178]0[167]6320 6030 [139]Z1[177][178]0[175]Z2[177][178]0[167]6410 6080 [153]LL$;:[141]9100:[153]"YOUR COMPUTED ANGLE IS"[181](Z4[172]100)[173]100"CMD DEGREES. 6090 PRINT"GOOD LUCK! WATCH OUT FOR THOSE STARS.":GOTO1000 6120 REM * QUADRANT 1 * 6130 IFZ50THENPRINT"AND THERE WERE"K1"[212][201][197]-[198][201][199][200][212][197][210][211] LEFT AT":GOTO6830 6825 PRINT"BUT THERE WERE NO [212][201][197]-[198][201][199][200][212][197][210][211] LEFT AT":GOTO6830 6828 PRINT"[212]HERE WERE"K1"[212][201][197]-[198][201][199][200][212][197][210][211] LEFT AT 6830 [153]"THE END OF YOUR MISSION. 6850 PRINT"[193]NOTHER GAME [195]APTAIN "N$"? ";:GOSUB9900:IFA$="Y"THENPRINT"[147]":RUN8860 6855 IFA$<>"N"THENPRINT"[145][145]";:GOTO6850 6860 GOSUB9210:PRINTCHR$(9)TAB(16)"[195][200][201][195][203][197][206]!":END 7500 PRINT"[221]"SPC(15)"[195][193][213][212][201][207][206][146]"SPC(16)"[221]"; 7510 PRINT"[221]"SPC(38)"[221]"; 7520 PRINT"[221] [212]HIS MISSION IS [214][197][210][217][160][196][193][206][199][197][210][207][213][211]!! [221]"; 7525 PRINT"[221]"SPC(9)"[217]OU MAY NOT RETURN!!"SPC(9)"[221]";:GOTO6610 7550 PRINT"[221]"SPC(11)"<< [193][212][212][197][206][212][201][207][206] >>"SPC(12)"[221]";:PRINT"[221]"SPC(38)"[221]"; 7580 PRINT"[221]"SPC(6)"[212]HIS MISSION IS [196][193][206][199][197][210][207][213][211]!"SPC(6)"[221]";:PRINT"[221]"SPC(38)"[221]"; 7590 GOTO6610 7600 PRINT"[221]"SPC(16)"[206][207][212][201][195][197][146]"SPC(16)"[221]"; 7610 PRINT"[221]"SPC(38)"[221]";:PRINT"[221]"SPC(5)"[212]HIS IS A TRAINING MISSION."SPC(6)"[221]"; 7630 PRINT"[221]"SPC(38)"[221]";:PRINT"[221]"SPC(6)"[193]RE YOU READY FOR LAUNCH?"SPC(7)"[221]"; 7640 GOTO6620 7800 REM ** VERIFY ANGLE ** 7810 IFABS(C2)>360THEN7840 7820 IFC2<0THENC2=C2+360 7830 ONC9GOTO2670,1000,1000,4950 7840 PRINT"ANGLE"C2"DEGREES DOES NOT COMPUTE!":FORX=1TO1000:NEXT 7850 PRINT"CONTROL BEING TRANSFERRED TO R2-D2.":FORX=1TO3000:NEXT:GOTO5880 8100 REM ** LEVEL 1 ** 8110 K3=6:K4=14:K2=3:S4=100:S6=5:B2=5:D5=0:D4=19:RETURN 8200 REM ** LEVEL 2 ** 8210 K3=21:K4=19:K2=3:S4=100:S6=6:B2=3:D5=0:D4=24:RETURN 8300 REM ** LEVEL 3 ** 8310 K3=41:K4=29:K2=4:S4=150:S6=7:B2=3=D5=0:D4=29:RETURN 8400 REM ** LEVEL 4 ** 8410 K3=41:K4=49:K2=4:S4=150:S6=7:B2=2:D5=1:D4=39:RETURN 8500 REM ** LEVEL 5 ** 8510 K3=25:K4=74:K2=3:S4=199:S6=9:B2=1:D5=1:D4=39:RETURN 8600 REM ** INTRODUCTION ** 8610 PRINT"[153] [213][192][192][192][192][192][192][192][192][192][192][192][178][192][192][174] [213][192][192][192][192][192][201] [176][192][192][192][192][192][201] 8620 [153]" (null) (null) (null) (null) (null) (null) 8630 PRINT" [221] [221] [221] [221] [221] [221] 8640 [153]" MID$TANTANTANTANTANRIGHT$ (null) -TANTANTANTANTAN< -TANTANTANTAN=(null) 8650 PRINT" [221] [221] [221] [221] [221] [221] 8660 [153]" (null) (null) (null) (null) (null) (null) 8670 PRINT"[192][192][192][192][192][192][192][192][192][203] [177] [177] [177] [177] [202][192][192][192][192] 8680 [153]"DEFONTANTANRIGHT$ (null) (null)TANTANTANTANTANRIGHT$ ORTANTANTANTANTANRIGHT$ (null)TANTANTANTANTANTANTANTANTAN 8690 PRINT"[145] [221] [221] [221] [221] [221] [221] [221] 8700 [153]" (null) (null) (null) (null) (null) (null) (null) 8710 PRINT" [221] [213][201] [221] [171][192][192][192][192][192][179] [171][192][192][192][192][178][203] [202][192][192][192][192][192][201] 8720 [153]" (null) (null)(null) (null) (null) (null) (null) (null) (null) 8730 PRINT" [221] [221][221] [221] [221] [221] [221] [221] [221] 8740 [153]" MID$TANTAN(null)MID$TANTAN(null) > > > MID$TANTANTANTANTANTANTANTANTAN(null) 8750 PRINT"[154] [213][192][192][192][192][192][201] [201] [178] 8760 [153]" (null) (null) (null) 8770 PRINT" [221] [221] [221] 8780 [153]" -TANTANTANTANTANRIGHT$ MID$TANTANTANTANTAN< 8790 PRINT" [221] [221] [221] 8800 [153]" (null) (null) (null) 8810 PRINT" [202][192][192][192][192][192][203] [177] 8830 [153]"SYS DO YOU NEED INSTRUCTIONS? ";:[141]9900:[139]A$[178]"Y"[167]10000 8840 [139]A$[179][177]"N"[167][153]"ONONON":[137]8830 8850 [153]"LOADSTOP"[199](14)"":[151]53280,1:[151]53281,1 8860 [143] ** SELECT SKILL LEVEL ** 8870 [133]"(null)LEASE ENTER YOUR LAST NAME";N$:[139][200](N$,1)[177]"Z"[167]8900 8880 [139]N$[178]""[167][153]"ON";:[137]8870 8890 NI$[178][200](N$,1):NI$[178][199]([198](NI$)[170]128):N$[178]NI$[170][202](N$,2) 8900 [153]"LOAD(null)HICH MISSION DO YOU WANT TO FLY TODAY":[153]"LENAPTAIN "N$"?" 8910 [153][163]5)"1. (null)(null)(null)(null)RIGHT$VAL":[153][163]5)"2. RIGHT$(null)(null)VAL(null)(null)VALSTR$RIGHT$ATN(null)VAL":[153][163]5)"3. (null)VAL(null)RIGHT$(null)(null) 8920 PRINTTAB(5)"4. [214][197][212][197][210][193][206]":PRINTTAB(5)"5. [198][207][207][204]" 8930 GETA$:IFA$=""THEN8930 8940 L=VAL(A$):IFL<1ORL>5THENPRINT"[215]HAT? ";:GOTO8930 8950 ONLGOSUB8100,8200,8300,8400,8500 8960 GOTO6510 9000 REM ** PAGE CONTROL ** 9010 IF(PEEK(53272)AND2)=0THENPRINT"HIT 'SPACE BAR' TO CONTINUE.[145]":GOTO9030 9020 PRINT"[200]IT [211][208][193][195][197][160][194][193][210] TO CONTINUE.[145] 9030 [139][194](197)[179][177]60[167]9030 9050 [151]198,0:[153]LC$;:[142] 9100 [143] ** CLEAR SCREEN FROM CURSOR * 9105 PO[178][185](0):[139]PO[177]39[167]PO[178]PO[171]40 9110 [153][200](LC$,40[171]PO); 9120 [129]X[178][194](214)[164]23 9130 [153][200](LC$,40);:[130] 9140 [153][200](LC$,39);:[151]2023,32 9150 [143] * RESTORE SCREEN LINE LINKS * 9160 [129]X[178]217[164]242:[151]X,[194](X)[176]128:[130]:[153]LL$;:[142] 9200 [143] ** CLEAR SID ** 9210 S[178]54272:[129]X[178]S[164]S[170]24:[151]X,0:[130]:[142] 9900 [143] ** GET CHARACTER ** 9910 [151]198,0 9920 [153]"SINCMD";:TM[178]TI[170]25 9930 [161]A$:[139]A$[179][177]""[167][153]"WAITCMD ":[142] 9940 [139]TI[179]TM[167]9930 9950 [139][194](199)[179][177]0[167][151]199,0:[137]9920 9960 [151]199,1:[137]9920 10000 [143] ** INSTRUCTIONS ** 10010 [151]53280,1:[151]53281,1 10020 [153]"LOADSTOP"[199](14)" *** RIGHT$NSTRUCTIONS FOR (null)(null)ATN(null)CLOSE(null)ATN(null)(null) *** 10050 FORX=1TO11 10060 ONXGOSUB10200,10500,10800,11100,11400,11700,12000,12300,12600,12900,13200 10080 GOSUB9000:NEXT X:GOTO13500 10200 PRINT" [217]OU ARE THE PILOT OF AN [216]-[215][201][206][199] 10210 [153]"FIGHTER. (null)OUR MISSION IS TO SEEK AND 10220 PRINT"DESTROY A TASK FORCE OF [212][201][197]-[198][201][199][200][212][197][210][211]. 10230 [153]"RIGHT$F YOU PLAY ABOVE (null)VAL(null)VAL(null) 3, YOU MUST ALSO 10240 PRINT"[145]DESTROY THE [196][197][193][212][200][160][211][212][193][210]. [217]OU HAVE A 10260 [153]"SPECIFIED NUMBER OF 'DAYS' TO COMPLETE 10270 PRINT"YOUR MISSION. 10280 [153]" ATNBOVE (null)VAL(null)VAL(null) 2, (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null) ARE (null)(null)(null)- 10290 PRINT"[211][212][193][212][201][207][206][193][210][217]. [201]F YOU TRY TO MANEUVER ON 10300 [153]"THEM, THEY WILL MOVE AND FIRE ON YOU. 10320 PRINT" [217]OU HAVE AT LEAST ONE [211][212][193][210][194][193][211][197] TO 10330 [153]"RESUPPLY YOUR SHIP. RIGHT$F YOU DESTROY A 10340 PRINT"[211][212][193][210][194][193][211][197], YOU'LL GET A NASTYGRAM. [201]F 10350 [153]"YOU DESTROY YOUR (null)ATN(null)(null) STARBASE, YOU LOSE 10360 PRINT"[145]THE GAME. 10370 [153]" (null)OU WILL BE ASSIGNED A STARTING POS- 10380 PRINT"ITION SOMEWHERE IN THE [199][193][204][193][216][217]. [212]HE 10390 [153]"CHR$ATN(null)ATN(null)(null) IS REPRESENTED BY AN 8 X 8 (null)(null)ATNSTR$- 10400 PRINT"[210][193][206][212] GRID. [197]ACH [209][213][193][196][210][193][206][212] IS DIVIDED 10410 [153]"INTO AN 8 X 8 (null)VALLEN(null)(null)(null) GRID.":[142] 10500 [153]"LOAD (null)OUR (null)(null)ATNSTR$(null)ATN(null)(null) AND (null)VALLEN(null)(null)(null) POSITIONS 10510 PRINT"ARE REPRESENTED BY PAIRS OF INTEGERS 10520 [153]"SEPARATED BY A DASH. (I.E. (null)(null)ATNSTR$(null)ATN(null)(null) 10530 PRINT"4-3, [211][197][195][212][207][210] 1-7) [212]HE FIRST NUMBER IS 10540 [153]"THE VERTICAL COORDINATE, THE SECOND IS 10550 PRINT"THE HORIZONTAL. [211]ECTOR 1-1 IS IN THE 10560 [153]"UPPER LEFT-HAND CORNER OF THE GIVEN 10565 PRINT"QUADRANT. [209]UADRANT 1-1 IS IN THE UPPER 10567 [153]"LEFT-HAND CORNER OF THE GALAXY. 10570 PRINT"[198]OR EXAMPLE: 10580 [153][163]11)" 1 2 3 4 5 6 7 8 10590 PRINTTAB(11)"1 . . . . . . . . 10600 [153][163]11)"2 . . . . . . . . 10610 PRINTTAB(11)"3 . . . . . . . . 10620 [153][163]11)"4 . . . . . . (null) . 10630 PRINTTAB(11)"5 . . . . . . . . 10640 [153][163]11)"6 . . . . . . . . 10650 PRINTTAB(11)"7 . . . . . . . . 10660 [153][163]11)"8 . . . . . . . . 10670 PRINT"[217]OUR POSITION HERE IS 4-7.":RETURN 10800 PRINT"[147]"CHR$(142)"A 'SHORT RANGE' SENSOR SCAN WILL BE 10810 [153]"DISPLAYED AT ALL TIMES EXCEPT DURING 10820 PRINT"INTELLIGENCE REPORTS. THE INFORMATION 10830 [153]"PRESENTED IS AUTOMATICALLY UPDATED BY 10840 PRINT"THE ONBOARD COMPUTER. SYMBOLOGY ON 10850 [153]"YOUR SENSOR SCREEN IS AS FOLLOWS: 10860 PRINTTAB(5)">[218]< - YOUR FIGHTER 10870 [153][163]5)"-(null)< - TIE-FIGHTER 10880 PRINTTAB(5)"[215][219][215] - STARBASE 10890 [153][163]5)" * - STAR 10900 PRINTTAB(5)"[202][209][201] - DEATH STAR 10910 [153][163]5)" : - VOID 10920 PRINT"A MINI STATUS REPORT IS ALSO DISPLAYED.":RETURN 11100 PRINT"[147]"CHR$(14)"[212]HE FOLLOWING [195][207][205][205][193][206][196][211] ARE AVAILABLE: 11110 [153]"1 - ASC(null)RIGHT$CHR$LEFT$(null)CLOSELEN(null)(null)(null)(null)(null)(null) * (null)HIS COMMAND OFFERS 11120 PRINT"[145] TWO OPTIONS, [193][213][212][207][205][193][212][201][195][160]AND [205][193][206][213][193][204]. 11130 [153]" (null)NDER ATN(null)(null)(null)(null)ATN(null)RIGHT$LEN CONTROL, YOU SIMPLY 11140 PRINT" ENTER THE COORDINATES OF YOUR DESTI- 11150 [153]"ON NATION (IE 3,5). (null)HE REST IS AUTO- 11160 PRINT" MATIC. [212]RAVEL IN THIS MODE IS AT 11170 [153]" (null)RIGHT$CHR$LEFT$(null) (null)(null)VALVALSTR$ AND REQUIRES MORE FUEL 11180 PRINT" THAN TRAVEL IN MANUAL MODE. [193]UTO- 11190 [153]" MATIC MODE CAN BE USED FOR RIGHT$(null)(null)VAL(null)- 11200 PRINT" [209][213][193][196][210][193][206][212] FLIGHT [207][206][204][217].":RETURN 11400 PRINT"[147][198][204][201][199][200][212][160][195][207][206][212][210][207][204] CONTINUED: 11410 [153]" (null)ATN(null)(null)ATN(null)CLOSEMODE CAN BE USED FOR RIGHT$(null)(null)VAL(null)- OR 11420 PRINT"[145][201][206][212][210][193]-[209][213][193][196][210][193][206][212] FLIGHT. [212]RAVEL IN MANUAL 11430 [153]"ONMODE IS AT (null)ATN(null)(null)CLOSE(null)(null)VALVALSTR$ AND YOU MUST ENTER 11440 PRINT"[145]THE DESIRED [195][207][213][210][211][197] AND [215][193][210][208][160][198][193][195][212][207][210] AS 11450 [153]"DESCRIBED BELOW. 11460 PRINT" [217]OUR COURSE MUST BE GIVEN IN DEGREES 11470 [153]"WITH ZERO DEGREES BEING (null)(null)(null)(null)LEFT$, AS SHOWN. 11480 PRINTTAB(20)"0":PRINTTAB(16)"270 + 90":PRINTTAB(19)"180 11500 [153]" (null)NE (null)ATN(null)(null)CLOSEASCATNLEN(null)(null)(null) IS THE SIZE OF ONE 11510 PRINT"QUADRANT. [212]HEREFORE, TO GET FROM QUAD- 11520 [153]"RANT 6-5 TO 5-5 YOU WOULD USE COURSE 0 11530 PRINT"DEGREES, WARP FACTOR 1. [217]OUR ENGINES 11540 [153]"WILL SHUT DOWN AUTOMATICALLY IF YOU TRY 11550 PRINT"TO LEAVE THE GALAXY.":RETURN 11700 PRINT"[147]2 - [204][207][206][199][160][210][193][206][199][197][160][211][197][206][211][207][210][160][211][195][193][206] * [196]ISPLAYS 11710 [153]" CONDITIONS IN SPACE FOR ONE QUADRANT 11720 PRINT"[145] ON ALL SIDES OF YOUR PRESENT POSI- 11730 [153]" TION. (null)OU, THEREFORE, ARE IN THE 11740 PRINT" CENTER OF THE SCAN. [196]ATA ON THE 11750 [153]" SENSOR SCREEN IS CODED IN THE FORM 11760 PRINT" OF A THREE DIGIT NUMBER WHERE THE 11770 [153]" (null)(null)RIGHT$(null)(null) DIGIT IS THE NUMBER OF (null)(null)ATN(null)(null), 11780 PRINT" THE [212][197][206][211] DIGIT IS THE NUMBER OF 11790 [153]" (null)(null)ATN(null)PEEKATN(null)VAL(null), AND THE LEFT$(null)(null)STR$(null)VALSTR$(null) DIGIT 11800 PRINT" IS THE NUMBER OF [212][201][197]-[198][201][199][200][212][197][210][211] IN 11810 [153]" THE QUADRANT REPRESENTED. ATN '?' 11820 PRINT" INDICATES A QUADRANT OUTSIDE THE 11830 [153]" GALAXY. ATNS PREVIOUSLY STATED, YOU 11840 PRINT" CANNOT LEAVE THE GALAXY. 11850 [153]"ASCOR EXAMPLE: 207 = 2 (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null), 11860 PRINTTAB(14)"0 [194][193][211][197][211], AND 7 [211][212][193][210][211].":RETURN 12000 PRINT"[147]3 - [198][201][210][197][160][208][200][193][211][197][210][211] * [193]LLOWS YOU TO DESTROY 12010 [153]"ON (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null) BY ZAPPING THEM WITH 12020 PRINT" SUITABLY LARGE UNITS OF ENERGY. 12030 [153]" (null)(null)ATN(null)(null), (null)(null)ATN(null)PEEKATN(null)VAL(null), AND THE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) 12040 PRINT"[145] ARE [206][207][212] AFFECTED BY PHASERS. [212]HE 12050 [153]" USE OF PHASERS DEPLETES YOUR FUEL 12060 PRINT" SUPPLY SO BE DISCREET. [194]Y THE WAY, 12070 [153]" (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null) HAVE PHASERS ALSO!":[142] 12300 [153]"LOAD4 - ASCRIGHT$(null)VALCLOSE(null)LEFT$(null)(null)(null)(null)CLOSE(null)(null)(null)(null)VALSTR$(null)VAL(null) * (null)ORPEDO 12310 PRINT" COURSE IS THE SAME AS FOR [198][204][201][199][200][212] 12320 [153]" LEN(null)(null)(null)(null)(null)(null). RIGHT$F YOU HIT THE (null)RIGHT$VAL- 12330 PRINT" [198][201][199][200][212][197][210], IT IS DESTROYED AND CANNOT 12340 [153]" FIRE BACK AT YOU. RIGHT$F YOU MISS, YOU 12350 PRINT" ARE SUBJECT TO RETURN PHASER FIRE. 12360 [153]" (null)ORPEDOES WILL ALSO DESTROY (null)(null)ATN(null)(null), 12370 PRINT" [211][212][193][210][194][193][211][197][211], AND THE [196][197][193][212][200][160][211][212][193][210].":RETURN 12600 PRINT"[147]5 - [196][193][205][193][199][197][160][195][207][206][212][210][207][204][160][210][197][208][207][210][212] * [199]IVES THE 12610 [153]" STATE OF REPAIR OF ALL DEVICES. ATN 12620 PRINT" NEGATIVE NUMBER OF [211][212][193][210][196][193][217][211] INDI- 12630 [153]" CATES THE DEVICE IS DAMAGED AND THE 12640 PRINT" NUMBER OF DAYS REQUIRED FOR REPAIR. 12650 [153]" (null)HERE ARE EXCEPTIONS, HOWEVER.":[142] 12900 [153]"LOAD6 - RIGHT$(null)(null)VAL(null)(null)RIGHT$CHR$VAL(null)LENVALCLOSE(null)VAL(null)(null)(null)(null) * STR$ISPLAYS THE 12910 PRINT" RESULTS OF ALL PREVIOUS [204][207][206][199][160][210][193][206][199][197] 12920 [153]" SENSOR SCANS. (null)HE REPORT DATA IS 12930 PRINT" CODED THE SAME AS ON THE [204][207][206][199][160][210][193][206][199][197] 12940 [153]" SCAN. RIGHT$T IS RECOMMENDED THAT YOU 12950 PRINT" [193][204][215][193][217][211] DO A [204][207][206][199][160][210][193][206][199][197] SCAN BEFORE 12960 [153]" LEAVING A QUADRANT.":[142] 13200 [153]"LOAD7 - (null)2-STR$2 (null)ATN(null)RIGHT$CHR$ATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)PEEK(null)(null) * LENOMPUTES 13210 PRINT" ANGLES FOR USE WITH [198][204][201][199][200][212][160][195][207][206][212][210][207][204] 13220 [153]" AND ASCRIGHT$(null)VALCLOSE(null)(null)(null)(null)VALSTR$(null) COMMANDS. RIGHT$(null)(null)(null)ATN- 13230 PRINT" [209][213][193][196][210][193][206][212] ANGLES ARE COMPUTED RELA- 13240 [153]" TIVE TO YOUR POSITION. RIGHT$(null)(null)VAL(null)-(null)(null)ATNSTR$- 13250 PRINT" [210][193][206][212] ANGLES ARE COMPUTED RELATIVE 13260 [153]" TO THE (null)(null)ATNSTR$(null)ATN(null)(null) YOU ARE IN. ATNGAIN, 13270 PRINT" 0 DEGREES IS [206]ORTH, 90 IS [197]AST, 180 13280 [153]" IS (null)OUTH AND 270 IS (null)EST. (null)UADRANT 13290 PRINT" AND SECTOR COORDINATES ARE ENTERED 13300 [153]" AS PAIRS OF NUMBERS SEPARATED BY A 13310 PRINT" COMMA [207][210] CARRIAGE RETURN.":RETURN 13500 PRINT"[147]1. [215]HEN YOU SEE [195][207][205][205][193][206][196] DISPLAYED, 13510 [153]" ENTER ONE OF THE LEGAL COMMANDS 13520 PRINT" (1 THRU 7). 13530 [153]"2. RIGHT$F YOU ENTER AN ILLEGAL COMMAND, 13540 PRINT" A LIST OF LEGAL COMMANDS WILL BE 13550 [153]" DISPLAYED. 13560 PRINT"3. [211]OME COMMANDS REQUIRE YOU TO ENTER 13570 [153]" DATA. VALNTER THE DATA AND HIT (null)VAL(null)(null)(null)(null) 13580 PRINT"[145] IF REQUIRED. 13590 [153]"4. ASCUNCTION KEY 'F1' CAN BE USED TO 13600 PRINT" RESTORE THE SCREEN DISPLAY IF IT 13605 [153]" SCROLLS DURING HEAVY FIGHTING. 13606 IFLTHEN1970 13610 PRINT"[193]RE YOU READY TO ASSUME COMMAND? ";:GOSUB9900 13620 IFA$="Y"THENPRINT"[147]";:GOTO8860 13630 IFA$<>"N"THENPRINT"[145][145][145]";:GOTO13610 13640 GOTO10000 15000 ********* VARIABLES ********* 15010 : 15020 **** ARRAYS **** 15030 : 15040 D(X,Y) - CURRENT QUADRANT 15050 : 0 = VOID 15060 : 1 = STAR 15070 : 2 = TIE FIGHTER 15080 : 3 = STARBASE 15090 : 4 = YOUR POSITION 15100 : 5 = DEATH STAR 15110 : 15120 S(X,Y) - THE GALAXY 15130 : 15140 Q(X,Y) - KEEPS TRACK OF LONG RANGE SCANS FOR SMART REPORTS 15150 : 1 - LR SCAN DONE 15160 : 0 - THIS QUADRANT UNKNOWN 15170 J(X,Y) - KEEPS TRACK OF ENEMY FIGH TER'S ENERGY SUPPLY 15180 : 15190 R(X) - DAMAGE CONTROL, CONTENTS <0 IMPLIES THAT SYSTEM DAMAGED 15200 : X = 1 - WARP DRIVE 15210 : 2 - SHORT RANGE SENSORS 15220 : 3 - LONG RAMGE SENSORS 15230 : 4 - PHASER CONTROL 15240 : 5 - TORPEDO CONTROL 15250 : 6 - DAMAGE CONTROL 15260 : 7 - COMMUNICATIONS 15270 : 8 - R2-D2 (NAV) 15275 : 15280 **** SIMPLE **** 15285 : 15290 B1 - # STARBASES 15300 B2 - MAX STARBASES 15310 C1 - CONDITION: 0=GRN, 1=YEL, 2=RED, 3=DOCK 15320 C2 - UTILITY: COMMAND ETC. 15330 D1 - CURRENT STARDATE 15340 D2 - DATE MISSION ENDS 15350 D3 - MISSION LENGTH 15355 D4 - MINIMUM MISSION LENGTH -1 15360 D5 - # DEATH STARS 15370 K1 - # TIE FIGHTERS 15380 K2 - MAX ENEMY/QUADRANT 15390 L - SKILL LEVEL 15400 P - ENERGY/FUEL UNITS 15410 S1 - # STARS 15420 S4 - LOWER LIMIT FOR S1 15430 S6 - MAX STARS/QUADRANT 15440 T1 - # TORPEDOES 15445 P5 - ENERGY TIE FIRED AT X-WING 15450 P6 - ENERGY THAT HIT X-WING 15460 P9 - # TIMES PHASERS FIRED 15470 K3 & K4 - LIMITS FOR K1 15480 E1,E2 - QUADRANT COORDINATES 15490 E7,E8 - SECTOR COORDINATES 15500 : 15510 **** FLT & TORP CONTROL **** 15520 : 15530 N2 - Y INCREMENT 15540 N3 - X INCREMENT 15550 E3,E4 - OLD SECTOR (Y,X) 15560 P1,P2 - NEW SECTOR (Y,X) 15570 S3 - NEW QUAD (X OR Y) FLT ONLY 15580 : 15590 ******* SKILL LEVEL TABLE ******* 15600 : 15610 LEVEL: 1 2 3 15620 ------------------------------- 15630 K1 15-20 20-40 30-70 15640 K2 3 3 4 15650 S1 101-200 101-200 151-300 15660 S6 5 6 7 15670 B1 3-5 2-3 1-3 15680 T1 20 20 20 15690 P 3000 3000 3000 15700 D3 20-30 25-35 30-40 15705 ------------------------------- 15710 : 15720 LEVEL: 4 5 15730 ---------------------- 15740 K1 50-90 75-100 15750 S1 151-300 200-399 15760 S6 7 9 15770 B1 1-2 1 15780 T1 20 20 15790 P 3000 3000 15800 D5 1 1 15810 D3 40-50 40-50 15820 END